home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / HyperQuest 1.03 ••• / HyperQuest 1.03 еее / card_7465.txt < prev    next >
Text File  |  1990-10-02  |  9KB  |  429 lines
  1. -- card: 7465 from stack: in.03 –µ–µ–µ
  2. -- bmap block id: 3657
  3. -- flags: 0000
  4. -- background id: 10462
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   show card button "cover"
  9.   put "" into card field wish
  10.   put "" into card field smartAss
  11.   set the scroll of card field id 25 to 0
  12. end openCard
  13.  
  14. on closeCard
  15.   show card button "cover"
  16.   put "" into card field wish
  17.   put "" into card field smartAss
  18. end closeCard
  19.  
  20.  
  21. -- part 1 (button)
  22. -- low flags: 00
  23. -- high flags: 8003
  24. -- rect: left=3 top=317 right=339 bottom=226
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 1
  28. -- font id: 0
  29. -- text size: 12
  30. -- style flags: 0
  31. -- line height: 16
  32. -- part name: show all object buttons in stack
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   if the userLevel<3 then
  36.     beep
  37.     answer "You must set a higher userLevel first." with "OK"
  38.     exit mouseUp
  39.   end if
  40.   show msg
  41.   set the lockScreen to true
  42.   put the number of cards into numCards
  43.   repeat with cardCount = 5 to numCards
  44.     put cardCount into msg
  45.     go to card cardCount
  46.     put the number of card buttons into numButtons
  47.     repeat with butNum = 1 to numButtons
  48.       show card button butNum
  49.     end repeat
  50.   end repeat
  51.   go to card id 10613
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 4 (button)
  57. -- low flags: 00
  58. -- high flags: 2000
  59. -- rect: left=478 top=306 right=342 bottom=512
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 9301 / 9301
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: knife
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.  
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 5 (button)
  76. -- low flags: 00
  77. -- high flags: 2000
  78. -- rect: left=445 top=271 right=307 bottom=479
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 1015 / 1015
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: nodule
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.  
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 6 (button)
  95. -- low flags: 00
  96. -- high flags: 2000
  97. -- rect: left=478 top=271 right=307 bottom=512
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 14953 / 14953
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: ladder
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.  
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 7 (button)
  114. -- low flags: 00
  115. -- high flags: 2000
  116. -- rect: left=478 top=236 right=272 bottom=512
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 1019 / 1019
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: bomb
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.  
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 8 (button)
  133. -- low flags: 00
  134. -- high flags: 2000
  135. -- rect: left=445 top=236 right=272 bottom=479
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 24317 / 24317
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: key
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.  
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 9 (button)
  152. -- low flags: 00
  153. -- high flags: 2000
  154. -- rect: left=478 top=201 right=237 bottom=512
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 7012 / 7012
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: gem
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   global takeFlag,examFlag,object,cardID
  166.   put the name of the target into object
  167.   if takeFlag = true
  168.   then send take to card id cardID
  169. else put "a glowing gem" into field 3
  170. put false into examFlag
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 10 (button)
  176. -- low flags: 00
  177. -- high flags: 2000
  178. -- rect: left=445 top=201 right=237 bottom=479
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 23078 / 23078
  181. -- text alignment: 1
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: orb
  187. ----- HyperTalk script -----
  188. on mouseUp
  189.  
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 11 (button)
  195. -- low flags: 00
  196. -- high flags: 8003
  197. -- rect: left=27 top=60 right=83 bottom=273
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: I wish to win the game.
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   answer "Congratulations!  You have Won The Game!" with "OK"
  209. end mouseUp
  210.  
  211.  
  212.  
  213. -- part 12 (button)
  214. -- low flags: 00
  215. -- high flags: 8003
  216. -- rect: left=27 top=85 right=108 bottom=273
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: I wish to know the stack password.
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   hide card button "cover"
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 13 (button)
  233. -- low flags: 00
  234. -- high flags: 8003
  235. -- rect: left=27 top=110 right=133 bottom=273
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: I wish to return to the game.
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   global cardID
  247.   go to card id cardID
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 14 (button)
  253. -- low flags: 00
  254. -- high flags: 8003
  255. -- rect: left=28 top=135 right=158 bottom=274
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: other...
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   put "" into card field wish
  267.   put "" into card field smartAss
  268.   ask "What is your wish?" with "I wish for: "
  269.   put it into card field wish
  270.   put "Well, OK, but this will probably take a few weeks." into card field smartAss
  271. end mouseUp
  272.  
  273.  
  274.  
  275. -- part 24 (button)
  276. -- low flags: 00
  277. -- high flags: 8003
  278. -- rect: left=3 top=214 right=238 bottom=240
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 1
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: edit the doMenu trap (see below)
  287. ----- HyperTalk script -----
  288. on mouseUp
  289.   set userLevel to 5
  290.   edit script of this stack
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 15 (field)
  296. -- low flags: 00
  297. -- high flags: 0000
  298. -- rect: left=330 top=20 right=70 bottom=509
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 0
  302. -- font id: 3
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: wish
  307.  
  308.  
  309. -- part 16 (field)
  310. -- low flags: 00
  311. -- high flags: 0000
  312. -- rect: left=330 top=72 right=122 bottom=509
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 0 / 0
  315. -- text alignment: 0
  316. -- font id: 3
  317. -- text size: 12
  318. -- style flags: 0
  319. -- line height: 16
  320. -- part name: smartAss
  321.  
  322.  
  323. -- part 17 (button)
  324. -- low flags: 80
  325. -- high flags: 8001
  326. -- rect: left=200 top=190 right=208 bottom=251
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: PRINITA
  335.  
  336.  
  337. -- part 18 (button)
  338. -- low flags: 80
  339. -- high flags: 0001
  340. -- rect: left=237 top=190 right=208 bottom=252
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: 
  349.  
  350.  
  351. -- part 25 (field)
  352. -- low flags: 01
  353. -- high flags: 2007
  354. -- rect: left=3 top=241 right=313 bottom=414
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 0
  358. -- font id: 3
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: 
  363.  
  364.  
  365. -- part 19 (button)
  366. -- low flags: 80
  367. -- high flags: 0001
  368. -- rect: left=162 top=191 right=208 bottom=174
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: 
  377.  
  378.  
  379. -- part 22 (button)
  380. -- low flags: 00
  381. -- high flags: 0001
  382. -- rect: left=0 top=175 right=342 bottom=512
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: cover
  391.  
  392.  
  393. -- part 23 (button)
  394. -- low flags: 00
  395. -- high flags: 0000
  396. -- rect: left=363 top=135 right=163 bottom=457
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 1
  400. -- font id: 0
  401. -- text size: 12
  402. -- style flags: 0
  403. -- line height: 16
  404. -- part name: 
  405. ----- HyperTalk script -----
  406. on mouseUp
  407.   answer "Do you really want to quit the game?" with "yes"or"no"
  408.   if it="no" then exit mouseUp
  409.   send quitGame to card id 10613
  410. end mouseUp
  411.  
  412.  
  413.  
  414. -- part contents for card part 25
  415. ----- text -----
  416. How to remove the protection from this stack:
  417. NOTE -- Please do not distribute unprotected stacks!
  418.  
  419. 1) Display the menu bar by pressing Command-SpaceBar.
  420.      Hold down the Command Key and select "Protect Stack..."
  421.      from under the file menu.
  422. 2) Enter the stack password and set the user level limit to
  423.      allow Scripting.
  424. 3) Click on the "edit the doMenu trap" button above and edit
  425.      the stack script to "comment out" the doMenu handler.
  426.  
  427. To reactivate the stack protection,  reinstate the doMenu handler and choose "Protect Stack..." to set the user level limit to Browsing.
  428.  
  429.